home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / glibc108.zip / glibc108 / hurd / hurdintr.awk < prev    next >
Text File  |  1992-03-24  |  582b  |  26 lines
  1. BEGIN { intr=0; wantcall=0; calls=""; }
  2.  
  3. $1 == "/*" && $2 == "INTR" && $3 == "*/" { intr=1; }
  4.  
  5. NF == 1 && $1 == "routine"    { wantcall=1; next; }
  6.  
  7. intr != 0 && wantcall == 0 && NF >= 2 && $1 == "routine" \
  8.   {
  9.     if (substr($2, length($2)-2, 1) == "(")
  10.       calls = calls " " substr($2, 0, length($2)-1);
  11.     else calls = calls " " $2;
  12.     intr=0;
  13.   }
  14.  
  15. wantcall != 0 && NF >= 1 \
  16.   {
  17.     if (substr($1, length($1)-2, 1) == "(")
  18.       calls = calls " " substr($1, 0, length($1)-1);
  19.     else calls = calls " " $1;
  20.     intr=0;
  21.   }
  22.  
  23. { wantcall=0; }
  24.  
  25. END { print varname " :=" calls; }
  26.